Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/files/ID99MENU.DIR/00001_Script_1

Text File | 1999-04-29 | 6KB | 227 lines

global learnedsizes,screenshotloc,screenshotwidth,screenshotheight,firstthumbnail,dots
global jurorcomments,firstjuror,firstjurorhilite,firsttitle,firstbio,biogrid,creditsgrid
global rollstep,rollvolume,bgmusic,jurorspeaking,firstjurorzoom,globalidvolume,goldbox
global firstbigjuror,firstnamejuror,viewby,webpages,demos,currtitle,pathdel,demofolder
global talkaboutbronze,idcdpath,cdpath,shownqmessage,titlewidth,titleheight,qmessage

on preparemovie
  set the idleLoadMode = 3
  if voidp(idcdpath) then checkforproblems
  talkaboutbronze = the optiondown
  repeat with a = 1 to 1000
    set the visible of sprite a to true
  end repeat
  if the platform contains "windows" then
    pathdel = "\"
  else
    pathdel = ":"
  end if
  demofolder = idcdpath & "allfiles" & pathdel
  if voidp(bgmusic) then bgmusic = demofolder&"bgmusic.aif"
  titlewidth = 177
  titleheight = 10
  learnedsizes = false
  screenshotloc = point(282, 162)
  screenshotwidth = 267
  screenshotheight = 217
  firstthumbnail = 11
  dots = 201
  jurorcomments = value(field "juror comments")
  webpages = value(field "web pages")
  demos = value(field "demo files")
  firstjuror = 161
  firstjurorhilite = 171
  firstbio = 181
  firstbigjuror = 201
  firstnamejuror = 211
  firsttitle = 111
  biogrid = 158
  creditsgrid = 60
  rollstep = 16
  rollvolume = 0
  goldbox = 54
  qmessage = 303
  jurorspeaking = 0
  firstjurorzoom = 191
  globalidvolume = 200
  set the volume of sound 1 to globalidvolume
  if voidp(currtitle) then set currtitle = 0
  if voidp(viewby) then set viewby = "title"
  repeat with a = 1 to 10
    sound stop a
  end repeat
end

on startmovie
  if the shiftdown then go "intro animation"
end

on stopjuror
  sound stop 4
end

on mouseup
  if the frame >= label("intro animation") then go 1
end

on godemo thedemo
  if thedemo = "" then exit
  oldid = the itemdelimiter
  set the itemdelimiter to ":"
  foldername = item 1 of thedemo
  demoname = item 2 of thedemo
  set the itemdelimiter to oldid
  wheredemois = demofolder&foldername
  set the searchpaths = [wheredemois]
  set the visible of sprite qmessage to not (shownqmessage=true)
  go "to demo"
  repeat with a = 1 to 1000
    set the visible of sprite a to true
  end repeat
  repeat with a = 1 to 10
    sound stop a
  end repeat
  repeat with a = 1 to 10
    set the volume of sound a to 255
  end repeat
  starttimer
  if not (shownqmessage=true) then
    repeat while the timer < 120
      updatestage
    end repeat
  end if
  shownqmessage = true
  play movie demoname
end

on enterframe
  if not soundbusy(1) then
    sound playfile 1,bgmusic
    bgmusic = demofolder&"bgmusic.aif"
  end if
end

on startbgmusic
  bgmusic = demofolder&"bgmusic.aif"
  sound playfile 1,bgmusic
end

on keydown
  if "0123456789" contains the key then
    globalidvolume = 27 * value(the key)
  end if
  if the key = "q" and the commanddown then
    set the exitlock = false
    go "get out"
  end if
end

on settextrender
  repeat with a = 1 to 1000
    if the type of member a = #text then
      set the savebitmap of member a to true
      set the prerender of member a to #copyink
    end if
  end repeat
end

on redesign
  repeat with a = 621 to 663
    w = the number of words in the name of member a
    bwmember = word (w-1) of the name of member a
    put "titlecredit"&&string(a-620) into bwmember
    set the name of member a to bwmember
  end repeat
end

on recolor
  repeat with a = 531 to 573
    bwmember = the name of member a
    put "titlecredit"&&string(a-530) into bwmember
    set the name of member a to bwmember
  end repeat
end

on randomj
  j = []
  repeat with a = 1 to 43
    i = [random(3),random(4,6)]
    append j,i
  end repeat
  return j
end

on settextcolors
  repeat with a = 235 to 277
    set the forecolor of member a to 0
    set the backcolor of member a to 255
  end repeat
end

on blastoff thesprite
  repeat with a = 1 to 30
    set the loc of sprite (dots+a-1) to point(10000,10000)
  end repeat
  updatestage
  themember = the membernum of sprite thesprite
  cropper themember,the number of member "dot 1",15,2
  repeat with a = 1 to 30
    set the loc of sprite (dots+a) to the loc of sprite thesprite
  end repeat
  sendallsprites #titlefly
end

on cropper mastercaster,firstcast,thecols,therows
  idots = firstcast
  cols = thecols
  rows = therows
  widthgap = integer(.5+float(the width of member mastercaster)/cols)
  heightgap = integer(.5+float(the height of member mastercaster)/rows)
  repeat with a = 1 to rows*cols
    dotmember = idots+a-1
    set the picture of member dotmember to the picture of member mastercaster
    crop(member dotmember,rect(((a mod cols)-1)*widthgap,(a/cols)*heightgap,((a mod cols)-1)*widthgap+widthgap,(a/cols)*heightgap+heightgap))
  end repeat
end

on Mac
  return not(the platform contains "windows")
end

on checkforproblems
  set the itemdelimiter to ","
  if Mac() then
    put field "Mac CD Name" into CDName
    put CDName & ":ID99CHK:" into it
    put getNthFileNameInFolder(it,1) into it
    if it = "" then
      put true into discproblem
    else
      set the searchpaths to [CDName, CDName & ":ALLFILES"]
      set IDCDPath= CDName&":"
    end if
  else
    put the moviepath&"ID99CHK\" into here
    if getNthFileNameInFolder(here,1) <> "" then
      put the moviepath into IDCDPath
    else
      if voidp(CDPath) then set CDPath = ""
      put char 1 of CDPath & "defghijklmnopqrstuvwxyz!" into theletters
      repeat with a = 1 to (the number of chars in theletters)
        put char a of theletters into driveletter
        if driveletter = "!" then exit repeat
        put driveletter&":\ID99CHK\" into it
        put getNthFileNameInFolder(it,1) into it
        if it <> "" then exit repeat
      end repeat
      if driveletter = "!" then
        put true into discproblem
      else
        put "" into lowram
        set the searchpaths to [driveletter&":\ALLFILES\"]
        set IDCDPath= driveletter&":\"
      end if
    end if
  end if
end